#!/usr/bin/env perl

BEGIN {
	push @INC,"../libs";
}

use gri2_rsatcp;
use Data::Dumper;

($a,$b)=gri2_rsatcp::load_all_private_keys({dir=>"/tmp/keys"});

if($a==0) {
	print STDERR "$_\n" foreach(@$b);exit;
}

print Dumper($b);

($a2,$b2)=gri2_rsatcp::load_all_public_keys({dir=>"/tmp/keys"});

if($a2==0) {
	print STDERR "$_\n" foreach(@$b2);exit;
}

print Dumper($b2);
